From: Jason Rumney <jasonr@gnu.org>
Date: Sun, 5 Aug 2007 21:46:00 +0000 (+0000)
Subject: (vc-rollback): Add norevert argument back.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17512
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=523e641cc4c1f46b5a5a11e189e68dbd2ab01aa6;p=emacs.git

(vc-rollback): Add norevert argument back.
(vc-revert-buffer): Add back as obsolete alias.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 78e098d874f..2b2dd9fb8c9 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -2635,6 +2635,9 @@ changes found in the master file; use \\[universal-argument] \\[vc-next-action]
     (vc-revert-file file)
     (message "Reverting %s...done" file)))
 
+;;;###autoload
+(define-obsolete-function-alias 'vc-revert-buffer 'vc-revert "23.1")
+
 ;;;###autoload
 (defun vc-update ()
   "Update the current buffer's file to the latest version on its branch.
@@ -2718,8 +2721,9 @@ return its name; otherwise return nil."
   (vc-resynch-buffer file t t))
 
 ;;;###autoload
-(defun vc-rollback ()
-  "Get rid of most recently checked in version of this file."
+(defun vc-rollback (&optional norevert)
+  "Get rid of most recently checked in version of this file.
+A prefix argument NOREVERT means do not revert the buffer afterwards."
   (interactive "P")
   (vc-ensure-vc-buffer)
   (let* ((file buffer-file-name)